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MODULE CLUSTRMNT 
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BEGIN 


' 
i eeeeeeeereeeeeeeeeeeeneneeeeeeeeees Laeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeenes 
‘ee 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
* 
y 
' 
* 
* 
* 
* 
* 
'® TRANSFERRED. ® 
* 
* 
* 
* 
* 
* 
® 
* 
* 
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NOW 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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MODIFIED BY: 


v04-001 HHO058 Hai Huang 13-Sep-1984 
Do not demote the device lock to CR mode in error path. 


v03-070 HHOO0S4 30-Aug-1984 
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3 } 
3 ! 
aid FACILITY: MOUNT Utility Structure Levels 1 & 2 
093 ABSTRACT: 
003 ‘ This module contains routines used to verify mount consistency 
003 ‘ throughout a cluster. 
003 : 
4 004 : 
: ape } ENVIRONMENT: 
4 004 : STARLET operating system, including privileged system services 
4 94 ! and internal exec routines. 
45 04 : 
46 04 ten 
47 4 : 
48 be ; 
4, AUTHOR: Christian D. Saether CREATION DATE: 5-Aug-1983 
a 
i 
i 
i 
i 
i 
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Add another sanity check (count the number of device 
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ce 


locks) before making us the first mounter. 


SERA 


H , } : 
3 1! : 
; 6 ; 1! V03-009 HHO0S3 Hai Huang aes -1984 : 
; 66) 1 3} lear the device context and make us the first mounter : 
3; «66 pO¢ 1! f the device lock value block and the volume lock value ‘ 
: e7 Be7 : } block are inconsistent. : 
; & 065 1! v03-008 eross Hai Huang 10-Aug-1984 : 
3 28 0067 : Take out the selne lock for shared foreign eaunts. : 
; 068 1! V03-007 WH004 ang 27-Jul-1984 . 
3 9 4534 1! Dering v vortebies’ +4 6L08 L storage can be cleared during ; 
: 0 070 1! : 
aa 0071 1! : 
y fF Bore +! V03-006 HH0041 Hai Wuang 24- haa : 
ls ft, Babe : : fomees REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32'. : 
ae Bor? 73 v03-005 CDS0003 Christian D. Saether — 1984 ; 
.* 076 1! Restore zealous checks on /WRITE, but rem ; 
er ar 0077 1! them for /QUOTA until the day the DISKQUOTA “utility : 
; Fr 0078 1! plays correctly with it. : 
; fF 0079 1! 3 
; 80 0080 1! v03-004 HH0026 Hai Huang 25-Jun-1984 : 
; = «BI 0081 1! Remove overzealous consistency check on the 7ENOJWRITE : 
3 : ooe ! option. : 
> 84 0084 1! v03-003 seers Hai Huang 20-Apr-1984 3 
; @ 0085 1! Fix various giablens caused by getting generic mount : 
; My poee ' to work. : 
: 0088 1! v03-002 CDS0002 Christian D. Saether 1-Feb-1984 $ 
; 8689 0089 1! Modify interlock checks to allow multiple writers : 
; Ww 0090 1! if mounted /foreign. : 
; 4 ad : Add routine headers (comments). ; 
i 0095 1! v03-001 CDS0001 Christian D. Saether 6-Dec-1983 : 
; 0094 1! Set VCBSV_NOSHARE flag to signal lock are taken 3 
s 69 0095 1! nN non=shared namespace. : 
; w* 0096 1! : 
; oO 097 1:00 : 
; 098 1 3 
; 0099 1 F 
: 100 100 1% LIBRARY ‘SYS$LIBRARY:LIB. L32"; 3 
: 13) 1 } ' REQUIRE ‘SRC$:MOUDEF .B32'; : 
; 108 0634 1 OWN : 
: 104 0635 1 LCKCNT_ITM BBLOCK (C12 + 4] INITIAL ( A 
: 105 0636 1 u D (4) F 
; 106 1 WORD (LKI$_LCKCOUNT), : 
; 10 $ 1 LONG ( d 3 
: 108 1 CONG ( é 
3 109 0 1 LONG ( iF ; 
; 110 1 1 3 
s 997 ret & 3 
3 16 1 ! Note: The fottouing st giebat storage area for various locks is cleared by 3 
: BF ore ! VMOUNT during run : 
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LCK_ GLOBAL_START: VECTOR [0], ! Mark start of giopet storage. 
DEVCCK_UCB : REF BBLOK, ! UCB of device lock. 
DEVLCK_STS : VECTOR C2, WORDJ, ! This MUST precede DEVLCK_LKID. 
DEVLCK"LKID, ! This MUST follow DEVLCK_STS. 
DEV_CTR : BBLOCK (16) FIELD (DC), 

! This MUST follow DEVLCK_LKID. 
VOLOCK_STS : VECTOR C2, WORD), ! This MUST precede VOLOCR_ID. 
VOLOCK_ID, ! This MUST follow VOLOCK_STS. 
VOL_CTR : BBLOCK (16) FIELD (VC),! This MUST follow VOLOCR_ID. 
VOLOCK_COUNT, ! Count of volume locks. 
VLSETLCK_STS : VECTOR C2, WORD), ! This MUST precede VLSETLCK_ID. 
VLSETLCK_ID, ! This MUST follow VLSETLCK_STS. 
VLSETLCK CTX : BBLOCK ig) FIELD (VC), ! MUST follow VLSETLCK_ID. 
LCK_GLOBAL_END : VECTOR (OJ; ! Mark end of global storage. 


N 4 
vos-001 1e-0p-1986 $2:45:1 eget 


3 : 4 O68 } GLOBAL ROUTINE GET_DEVICE_CONTEXT = : 
3 3 086 1 !e¢ ; 
: | 667 1! 3 
3 : 3 208 ! Functional description: : 
: 140 rif 1 ! This routine initializes mount context relevant to the device and ; 
3 «(141 671 1 ! volume locks. It then acquires the device lock value block, if 3 
$ 10g or¢ 1! it exists, which contains mount context for that device, if it is 5 
: ier per? ! } mounted already. : 
3 6145 0678 1! This also interlocks the MOUNT service with the final dismounting 3 
3 108 Bere : functions performed by the file system. : 
: 148 0678 1 ! This routine must be called in kernel mode. ; 
: 149 0679 1! 3 
; 150 0680 1 ! Calling sequence: 3 
3 151 0681 1! $ 
3 13¢ 0682 1! GET_DEVICE_CONTEXT () 3 
; 06835 1! 3 
3 6154 0684 1 ! Input parameters: F} 
s 155 0685 1! 3 
s 136 0686 1! NONE F 
3: 157 0687 1! 3 
s 188 0688 1 ! Implicit inputs: 3 
3; 159 0689 1! $ 
; 160 0690 1! CHANNEL = Channel on which volume is being mounted. : 
3; 161 0691 1! : 
: 166 0692 1 ! Implicit outputs: $ 
: 0693 1! 3 
3; 164 0694 1! DEV_CTX COC_FLAGS] = set to zero if first mounter, else contains : 
3; 165 0695 1! the value of pre-existing mounts. 3 
: 166 0696 1! VOLOCK_ID - zeroed 3 
: 167 0697 1! VLSETLOK_ID - zeroed ; 
; «168 0698 1! DEVLCK_LRID - zero if no device lock, else lockid of device lock F 
> 169 0699 1! DEVLCK_UCB - address of UCB of input CHANNEL : 
; 170 0700 1! 3 
: are 0701 1 ! Routine value: : 
: ie 40 . 2 3 
: 17 0703 1! Success if no device lock, or if device allocated. $ 
3 173 Babe ' : Else status of SENQW, with SS$_VALNOTVALID converted to success. ; 
: 176 0706 1 ! Side effects: . 
3; 177 1444 , ? : 
3; «178 0708 1! A system owned shared mode device lock (LCKSK_CRMODE) will be 3 
: 179 $708 1! converted to a process owned LCKSK_PWMODE lock. This must 3 
5 Hs Bre : be converted back before the MOUNT service completes. : 
3 136 ore 1 !-- : 
; 18 0713 1 J 
3; «6184 0714 BEGIN 3 
3; «6185 715 3 
3; 186 ay LOCAL 3 
: 187 71 STATUS, 3 
3; 188 718 STSBLK : VECTOR C4, WORD); 3 
3; 189 719 - 
; 190 720 EXTERNAL 3 
| 
| 
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vO4=001 yeagee18Be Pbia1h — PAMGAT Skiger se MeuO-24s 9° 23 | 
; 19 0721 CHANNEL; | : 
: 136 07 § : 
.. 7 07 EXTERNAL ROUTINE ’ 
3 194 0724 GET_CHANNELUCB; ‘ 
; #6195 0725 5 
; 196 07 § ! F 
; 197 07 : Mount now directly calls the IOCSSEARCH routine, which returns the ; 
; 198 0728 ' Lock value block of the device lock. Thus the device lock context : 
; 138 gf 4 should not be unconditionally cleared. : 
; 201 0731 i DEV_CTX CDC_FLAGS] = 0; ; 
3 os 07 ¢ ! 3 
; 20 07 F 
: 204 0734 VOLOCK_ID = 0; : 
3 sp 0735 VLSETLCOK_ID = 0; 3 
; 206 0736 DEVLCK_LRID = 0; . 
3; 207 0737 3 
3 $08 br 38 DEVLCK_UCB = GET_CHANNELUCB (.CHANNEL); ‘ 
; 210 0740 IF (DEVLCK_LKID = .DEVLCK_UCB CUCBSL_LOCKID]) EQL 0 : 
> 621i 0741 THEN 3 
3 sig ores RETURN 1; ; 
we 4 074 ; ; : 
3 214 0744 ! If the PID field in the ucb is non-zero, then the device is allocated : 
s 299 0745 ' to this process, therefore this is by definition the first mounter $ 
; 216 0746 ! on this device. Because the lock is already held in EX mode, we : 
; au 0747 ! simply return now and it will be written Later. é 
: 218 0748 2! 3 
; 219 0749 2 : 
: 220 0750 2 IF .DEYLCK_UCB CUCBSL_PID) NEQ 0 3 
s 2et 0751 TH 3 
: 222 0752 RETURN 1; 3 
s ges 0753 3 
; 224 0754 ! Get the device lock in PW mode. This both gets the current contents : 
; $$? 14) § of the value block, and gets it in a mode from which it can be written : 
e . 3a er. e 
3; 2e7 0757 2! This is also necessary to interlock with the file system completing 3 
3 en 0758 § ! the Last dismount on a device. In that case, the CHECK_DISMOUNT : 
; 229 0759 ! routine in the file system will want to clear the value block to 3 
; 230 0760 ! remove the mount context information. It must do this because the 3 
3; 231 0761 ' device lock itself does not disappear until the Last channel is 
: $36 64 ! deassigned, and the mount context in the device lock value block 
3 5% O74 : must be cleared when the Last dismount occurs. | 
: 235 765 
FY 36 P 3768 STATUS = SENQW (LKMODE = LCKSK_PWMODE, 
3 $34 P 076 LKSB = DEVLCK_STS, 
; 238 P 0768 EFN = MOUNT_EFN 
3; 239 P 0769 FLAGS = LCKSM_CONVERT + LCKSM_SYNCSTS + LCKSM_VALBLK 
; seo ea + LCKSM_NOQUOTA); 
3 ¢g re IF NOT .STATUS 
: 4 77 T 
2 44 774 RETURN .STATUS; 
> 266 776 IF (STATUS = .DEVLCK_STS (0J) 
: 47 077 THEN | 


RETURN .STATUS; 
ud -STATUS<0,16> EQL SS$_VALNOTVALID 
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! of routine GET_DEVICE_CONTEXT 


~ TITLE 
- IDENT 
»PSECT 
00000 LCKCNT_ITM: 
WORD 
00002 WORD 
00004 LONG 
00008 LONG 
0000C LONG 
»PSECT 


00000 LCK_GLOBAL STAR 
00000 DEVLCK_UCB: : 
00004 DEVLCK_STS:: 
00008 DEVLCK_LKID:: 
0000C DEV_CTX:: 
0001¢ VOLOCK_Siss 
00020 VOLOCK_1D:: 
00024 VOL_CTX:: 
00034 vovock. SUNT: 
00038 VLSETLCK. STS: 
0003C VLSETLCK_ID:: 
00040 VLSETLCK_CTX:: 
00050 LCK_GLOBAL_END:: 
.BCKB 
.EXTRN 
ZEXTRN 
.PSECT 
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SCODES ,NOWRT ,2 


EL, GET_CHANNELUCB 
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0004 -ENTRY GET_DEVICE_CONTEXT, Save R2 
2 0000 cf 5 03 MOVA DEVCCK LKID, R2 
E C 8 SUBL #8, SP 
18 A2 D4 A CLRL VOLOCK_ID 
34 A2 D4 0000 CLRL VLSETLOK_ID 
62 D4 4 CLRL DEVLCK_LRID 
0000G CF DD 0001 PUSHL CHANNEL 
0000G CF 91 FB 9016 CALLS #1, GET_CHANNELUCB 
FB ag 0 D 018 MOVL RY DEVCCK_UCB 
6 20 AO 9 OO1F MOVL 32(RO), DEVLCK_LKID 
2D 13 00023 BEQL 1$ 
2c A b3 90 5 TSTL 44(RO) 
g 1 028 BNEQ 1$ 
E 7C OO002A CLRQ -(SP) 
7E 7C 900 C CLRQ -(SP) 
7E 7C 000 CLRQ age 
7E 28 7D 000 ova #43, =(SP) 
FC A2 9F 000 PUSHAB DEVLCK_STS 
04 DD 30038 PUSHL 4&4 
1A DD 000 PUSHL #26 
000000006 00 98 FB O003A CALLS #11, SYSSENQW 
11 0 &9 90041 BLBC STATUS, 
50 FC A2 3C 00044 MOVZWL DEVLCK_STS, STATUS 
OA 50 €8 00048 BLBS ‘ 
09FO F 50 B61 00048 CMPW STATUS, #2544 
03 if 90050 BNEQ 2s 
50 01 OD 0032 1$: MOVL #1, STATUS 
04 00055 2$: RET 


; Routine Size: 86 bytes, Routine Base: $CODE$ + 0000 


; 257 0787 1 
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00000 


Functional description: 


This routine enforces consistency between the current mount 
request and mounts that have already been executed for this 
device on other nodes in the cluster. It does so by comparing 
information from this request with the value block of the 


> > > ie | 
woooono 
ms 


device lock (DEV_CTX) and signalling the appropriate error 
f they are inconsistent. 


co 
oO 
i=) 


Input pec eaneres 


Implicit inputs: 
MOUNT_OPTIONS = bitvector 
OPT_FORE 


C809 0909 SIN NI NII NIN NIA OOO AOOAAAOU 


cooD0O 
QRAP WN HO OONOUR UNIO Dee UP Nee 


H 1 

; 1 

3 1 

: 1! 

3 1! 

; 1! 

3 ¢ 

: 1! 

; 1! 

: 0 1! 

$ 0 1! 

3 1! 

3 9 2 2 

; 0801 1! 

3 Bang 1! 

3 0803 1! 

; 0804 1! 

3 0805 1! 

; 0806 1! 

3 § 0807 1! FOREIGN 

: 0808 1! OPT"WRITE 

a. 0809 1! OPT_ GROUP 

a 0810 1! OPT_SYSTEM 

ie 0811 1! OPT-NOQUOTA 

3 @ O82 1! OPT-PROTECTION 

‘eS 0813 1! OPT-OWNER_U 

Bg 0814 1! DEV_CTX = device Tock value block 
; 2 0815 1 | DC_FOREIGN 

3 ¢ 0816 1! DC_NOINTERLOCK 

; 4288 0817 1! DC_GROUP 

; 289 0818 1! DC_SYSTEM 

: 290 0819 1! DC_WRITE 

> 291 0820 1 | DC“NOQUOTA 

H $36 0821 1! DC_OVR_PROT 

; 2g Bes¢ 1! DC_PROTECTION 

: 294 0823 1! DC_OVR_OWNUIC 

3 $e? 0824 1! DC_OWNER_UIC 

; 296 0825 1! PROTECTION = desired protection mask for volume 
; ev 0826 1! OWNER_UIC = owner UIC of volume 

; 298 0827 1! STOREB_CONTEXT = bitvector 

: 299 0828 1! XQP = this is an XQP (as opposed to ACP) 
; 300 +t 1! 

; 301 830 1 ! Output parenetorss 

; 4 tt 1! NONE 

; § 7% 

3: 304 oas 1 ! Routine value: 

: 305 834 1! NONE 

; rte 1! 

; 2» Bs $ 1! Side effects: ; . 
; 308 a. Signals an error condition if parameters inconsistent with 
; 309 ba85 1! pre-existing mount of this device on another node. 
: 310 08 1! 

: 5311 840 1 !-- 

: \§ . * 

ae § BEGIN 

3 14 

2 15 0844 EXTERNAL 


ad 


7 2 
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C 
V 


Ay -STORED_CONTEXT CXQP) 
RETURN; 


IF .DEV_ Ag re GROUP) NEQ .MOUNT OPTIONS COPT GROUP] 
“OR .DEV=CTX CDC _SYSTEM NEQ .MOUNT_OPTIONS COPT_SYSTEM] 


; 1 845 MOUNT_OPTIONS : BITVECTOR, H 
3 Bt oes STORES CONTEXT : BITVECTOR, 5 
; 318 84 PROT ECTION : WORD, ; 
; 319 848 OONER UIC; $ 
3 0 +e 5 
3 1 850 LOCAL ; 
3 ¢ bBe3 STATUS, 5 
; 26 DESC : INITIAL (0) 3 
$ 4 pee 3 
; 5 854 LABEL $ 
; 326 0855 TESTS; 3 
; sf $28 : 
3 8 8 TESTS: 3 
3 9 858 BEGIN 3 
: 330 O80 8 1 ts /forei /torei 
3 ! Everyone mounts /foreign or no one mounts /foreign. ‘ 
: oss) 5 | 7 
: 334 bees IF _ .DEV_CTX CDC_FOREIGN] NEQ .MOUNT_OPTIONS COPT_FOREIGNI 
3 339 0864 THEN 
3 300 0865 4 
3 37 0866 5 DESC = (IF ‘vey CTX CDOC_FOREIGNI 
: 38 0867 5 HER DESCRIPTOR ('/FOREIGN') 
: 39 0868 4 EL USE DESCRIPTOR ('/NOFOREIGN')); 
: 349 0869 4 STATUS = MOUNS. INCONFOR; 
>; 341 0870 4 LEAVE TESTS 
3 306 0871 END; 
3 $ ie: 
: 344 087 !' NOINTERLOCK means it is not mounted with an 9p. on and hence 
; 345 0874 ! does not synchronize access to the volume. an ACP is used, 
3; 346 0875 ! only one writer is allowed. If mounted foreign, multiple writers 
3 347 0876 ' are allowed (you're on your own). If mounted with the xap anywhere, 
; 348 0877 i (mot NOINTERLOCK), it must be mounted with the xqp everyw ore (this 
; 349 0878 ! is only possible with the /proc=flibacp switch, and flibacp is 
; 350 0879 ! already gone as of field test 1). 
3 31 0880 : 
3 26 0881 
3 3 0882 4 IF (.DEV_CTX CDC say ae 
; $e¢ 08835 5 AND (. ROON T_OPTIONS rauetie) een -DEV_CTX CDOC_WRITEJ) 
3s 359 0884 4 AND NOT .MOONT OPTI ons PrOPt 
: $ 4 5 3 a (NOT .DEV_CTX CBC PNOINTERLOCRI. AND NOT -STORED_CONTEXT CXQPJ) 
: 358 0887 4 sin 
; 359 8 He 4 STATUS = ROUNS_ INCOMPACP; 
; 4 LEAVE TEST 
: 361 0890 END; 
3 $6 0891 
; 3 0. 35 ! If this is not an xqp, it is an ods-1 volume, and the remaining 
; 89 ! checks are not relevant. 
3 6365 94 ! 
; 4] 95 
39 
; 4 | 

| 

| 
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3 sre o0¢ 3 THEN : 
: 374 9 4 BEGIN ; 
: 375 904 DESC = (IF .DEV_CTX CDC GROUP} : 
: ug 905 THEN DESCRIPTOR ('/GROUP') ; 
3 §7 206 ELSE IF_.DEV CTX COC SYSTEM] | : 
3s ST 90 THEN DESCRIPTOR ('/SYSTEM') . 
3; or 2R8 4 EL St DESCRIPTOR ("/SHARE')); F 
; 380 909 4 STATUS = MOUNS_INCONSHR; : 
; 381 910 4 LEAVE TESTS F 
; 38 911 END; 3 
; 38 big ; : 
3 a $912 ! Ironically, the following consistency check caused mount to be ; 
; 386 0915 ! inconsistent with respect treatment of a physically write-locked disk. H 
3; 387 831$ ! When punt tne a write-locked disk cluster-wide without the /NOWRITE : 
; 388 91 ! qualifier, the first node to attempt the mount succeeds with a warning : 
: 389 0918 1 that the device is write-locked. Subsequent nodes will fail with the 3 
; 390 0919 ! “Inconsistent /WRITE option, cluster mounted /NOWRITE’’ error. for this 3 
: 4. 0381 reason, we remove this overzealous consistency check. ‘ 
3 9 09 ¢ ! The call to this routine in MOUNT _DISK2 has been moved to beyond the : 
: 394 09 ! point where we have determined whether the disk is physically writeable : 
; 395 0924 ! or not. This eliminates the problem discussed above, so the check : 
: 396 0925 ! goes back in until we can figure out why it makes sense to allow : 
3 144 88 § ' a mix of /write and /nowrite. : 
; 399 0928 IF .DEV_CTX CDC_WRITE] NEQ .MOUNT_OPTIONS COPT_WRITEJ 3 
; 400 0929 THEN 3 
: 401 0930 4 BEGIN F 
: 40 0931 5 DESC = (IF .DEV_CTX CDOC_WRITE) 3 
; 40 b358 5 THEN DESCRIPTOR ('/WRITE') 3 
; 404 0933 4 ELSE DESCRIPTOR ("/NOWRITE')); 3 
; 405 0934 4 STATUS = MOUNS_INCONWRITE; 3 
: 406 0935 4 LEAVE TESTS 3 
; 407 b338 ; END; ; 
; 408 093 s 
3; 4609 0938 ! As of field test 1, this check is incomplete in that the 3 
: 410 0939 ! DISKQUOTA utility can modify whether quotas are enabled or 3 
3 2) Reed not, and does not respect or modify this device lock value block flag. : 
; 418 Re So lets take the check out until we know how to do it right. : 
3 6415 1944 : 
3 218 945 'IF_ .DEV_CTX CDC_NOQUOTA] NEQ .MOUNT_OPTIONS COPT_NOQUOTA] : 
; (641 6 ' THEN : 
:; 418 94 ' BEGIN 3 
3; 419 94 : DESC = (IF .DEV_CTX CDC_NOQUOTA) 3 
: 420 94 ! THEN DESCRIPTOR ('/NOQUOTA') : 
: 421 950 : ELSE DESCRIPTOR ("/QUOTA')); 3 
3; 4 § 951 : STATUS = MOUNS_INCONQUOTA; : 
; 4 326 } LEAVE TESTS : 
: O55 OA BSE a | 
3; 4 $ 955 IF .DEV_CTX CDC ovr PROT] NEQ .MOUNT_OPTIONS COPT_PROTECTION] 3 
3; 4 328 & OR T.DEV_CTR COC_PROTECTION] NEQ™. PROTECTION) 3 
: 6 3 957 3 TH 3 
:; 6 958 4 BEGIN 3 


138% 93 13] 17 AX=-11 BL biger -32 V4.0-74 
4 18 MOUNT. SRCJCLUSTRMNT .B32; 2 


53 
eoeage ira: 


; 4 959 4 STATUS = MOUNS _ INCONPROT; 

: 1 960 LEAV — TEST 

oe i 

>; 434 308 IF .DEV_CTX CDC_O oye OWNUIC] NEQ .MOUNT OPTIONS COPT_OWNER_UICJ 
> 435 964 4 OR T.DEV_CTR COC_OWNER_UIC] NEQ .OQNER_UIC) 

; 4 965 3 THEN 

; 6 208 4 BEGIN 

; 438 967 4& STATUS = oes... INCONOWNER; 

; 439 398 & LEAVE TESTS 

; 440 3 END; 

> 441 9 ? 

3 rr 97 ! Passed all the consistency tests. 

; «44 $378 i Return. 

; 4446 97 i 

; 445 0974 

: 44 Bare RETURN; 

: 44 are END; ! of block TESTS 

: 448 097 

; 449 0978 ! If here, there was a problem. Signal the error. 
; 450 0979 ! 

3; 451 3980 

; re 09 IF .DESC EQL 0 

; 45 09 THEN 

3; 454 098 BEGIN 

; 455 0984 ERR_EXIT (.STATUS); 

; 456 0985 RETORN 

3; 457 098 END 

; 458 098 

3; 67 0988 BEGIN 

3; 4 0989 ERR EXIT (.STATUS, 2, .(.DESC)<0,16>, .(.DESC + 4)); 
; 461 0990 RE TORN 

; 46 0991 END; 

: 46 099 

; 099 END; ! of shared mount cluster consistency checks. 


-PSECT SPLITS,NOWRT ,NOEXE,2 
P.AAB: .ASCII reson 


4E 47 49 45 52 4F 46 2 99000 P-AAB:  -ASCI 
90° oc -ADDRESS P.AAB 
§ 10 P.AAD: . ASCII \/NOFOREIGN\ 
1A “BLKB é 
OA 1 P.AAC: .LONG : 
90 
F 
i 
i 
0 
F 


4E 47 49 45 52 4F 46 4F 


-ADDRESS P.AAD 

4 P.AAF: ASCII \/GROUP\ 
-LONG 
-ADDRESS P.AAF 
P.AAH: .ASCII \/SYSTEM\ 

-BLKB 1 
-LONG 7 
»ADDRESS P.AA 


0 
0 
4 
0 
0 
4 
4D 45 54 53 59 
: re 
44 P.AAJ: ASCII \/SHARE\ 
4A -BLKB 2 


45 52 41 48 
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4C P.AAL: .LONG 6 : 

45 54 49 20990098 6 P.AAL: san : 

0 P.AAK: .LONG : 

45 54 49 52 57 ee B-AAN: AeeT i \/NOWRITEN 
gonbaat, GOS PCAN LONE Oa 7 


sEXTRN MOUNT _OPT,ONS, STORED_CONTEXT 
-EXTRN PROTECTION, OWNER_ vic™ 


-PSECT SCODES,NOWRT,2 


00FC 00000 /ENTRY CHECK CLUSTER_SANITY, Save R2,R3,R4,R5,R6,- ; 0788 ; 

57 000000006 00 9€ 0000 MOVAB LIBSSTOP R7 : ; 

26 0000' CF 9€ 0000 MOVAB AAA, R : ; 

5 00006 CF 9€ 0005 MOVAB MOUNT OPTIONS, RS ; ; 

eno Oe 00018 CUM Dest ; 084 

50 01 AS 01 8 EF QOO1A EXT2V aS #1, MOUNT OPTIONS+1, RO + 086 ; 
50 64 01 01 ED 0020 CMP2V #1. #1. DEV_CTX, : : 
16 13 00025 BEQL : : 

05 64 01 4 0027 BBC #1, DEV_CTX, 1$ > 0866 F 

52 96 7 4 B ROVAB P.AAA, DESC ; 0867 : 

52 14 AG 9E 000 b 1s:  MOVAB BLAAC. DESC ; 0868 ; 

53 0072825C 8F DO 00034 2$: MOVL #7504 Ochre STATUS + 0869 F 

64 11 00038 BRB 13$ : 0870 : 

12 01 Ad €E9 00030 38: BLBC  DEV_CTX+1, 5$ : 088 ; 

09 01 AS 01 €1 00041 BBC #1, MOUNT OPTIONS+1, 4$ : 088 : 

05 64 04 £1 00046 BBC #4, DEV cTx, 4$ : ; 

OA 01 AS 03 €1 O04A BBC #3, MO MOURT _OPTIONS+1, 6$ : 0884 ; 

10 00006 ¢F °” 03. £0 00088 58; BBS. Beal REG CONTEXT, 88 me 

53 007280A4 af D0 0059 és: MOVL side STATUS ; ogs ; 

01 00006 CF 02 £0 00062 7S: BBS #2) STORED_CONTEXT, 88 ; 0896 3 

50 65 01 07 EF 9069 8$ EXTZV #7, #1, MOUNT OPTIONS, RO + 0900 : 
50 64 01 2 FD i CMPZV #2. #1, DEV_CTX, : 
50 01 AS 01 b EF $9 EXTZV #0, #1, MOUNT OPTIONS#1, RO : 0901 ; 
50 64 01 FD 78 CMPZV #3. #1. DEV_CTX, : ; 
1 BEQL : ; 

06 64 2 a 9%: BOC #2, DEV_CTX, 10% > 0904 F 

52 24 i 4 MOVAB tee DESC ; 0905 3 

06 4 1 10$: BBC DEV cI, 11$ > 0906 ; 

$3 34 Ab oe MOVAB PshaG, BES ; 0907 3 

44 a6 9 11$:  MOVAB P.AAI. DESC + 0908 ; 

a 00728234 BF Bb 38 1¢8: MOVL HPe0Ld 3a STATUS : 0909 3 

—E 11 000A1 13$: BRB 208 : 0910 : 

50 01 AS 01 1 EF OOOA3 14% EXTZV #1, #1, MOUNT_OPTIONS+1, RO > 0928 : 


; Routine Size: 281 bytes. Routine Base: $CODE$ + 0056 


; 465 0994 1 


5 
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-001 1 ~3007}38t ON ee YROUNT. SRC CLUSTRMNT.B32;2 — Ri ve 
50 64 01 04 F a9 CMPZV #4, #1, DEV_CTX, RO : ; 
7 A BEQL «=sésédT SS : : 

06 $4 04 f B BBC #4, DEV_CTX, 15$ : ; 

2 54 Ab i B4 MOVAB P.AAK, BESC : F 

4 6 SE OOOBR 158: BOVAB BRAM. DESC } 

3g 00728286 F 06 B 168: MOVL WPs0ckGne STATUS : ; 

A 1 C5 17$: BRB 208 : : 

50 02 AS ot 1 €F 000C7 18$:  EXTZV #1, #1, MOUNT_OPTIONS+2, RO : j 
50 64 1 6 3 0 cp CMP ZV #6, #1, DEV_CTX, RO : : 
VCTX+2, N 3 ; 

00006 CF 02 A4 BY 00004 CMP V.CTX+2, PROTECTIO ; 

: MOVL @& , STATUS : F 

53 0072823¢ BF b0 990 19% mov Br304666 TAT : ; 

50 02 AS 4 ; ag OE 20$:  €XTZV a3. #1, MOUNT_OPTIONS+2, RO : ; 
50 64 1 : O€ CMPZ7V #7, #1, DEV_CTX, RO : : 
8 OOF BNEQ = 218 : ; 

00006 CF 04 Ad D1 000F CMPL  DEV_CTX+#4, OWNER_UIC : : 

1E 13 OOOF BEQL 246$ : : 

53 0072824 i Mi OOFA 318: MOVL #7504460, STATUS : : 

2 5 00101 22$:  TSTL DESC : : 

5 12 0105 BNEQ 23$ : : 

DD 0010 PUSHL STATUS : ; 

67 1 FB 00107 CALLS #1, LIBS$STOP : ; 

04 =A po 00108 23$:  PUSHL  4(DESC) ; : 

7E 62 3C O010E MOVZWL (DESC), -(SP) : 3 

9 DD 00111 PUSHL #2 : ; 

DD O13 PUSHL STATUS : ; 

67 04 FB 0011 CALLS #4, LIBSSTOP : : 

04 00118 24$: ET : : 


K 5 
CLUSTRMNT 16-Sep-1984 01:13:17 AX-11 Bliss-32 V4.0-74 Page 14 
¥O4=001 1 8ep=198e 2:48:18 — YAOUNT. SRCSELUSTRMNY 699; 2 9 a) | 
; ree 33? } GLOBAL ROUTINE STORE_CONTEXT : NOVALUE = 
BR le 
; 471 $39 ! Functional description: 
: 47 190% 1 i This routine stores the various value block contexts by converting 
: 4746 1906 1 ! the volume, volume set (if present), and dey ce locks to their 
: 4675 1003 1 ! system owned, compatible modes. The order is which the locks are 
3: 47 1006 1 ! released is important because the mount kernel mode handler needs 
; of Hs ! ; to know how to clean up if anything goes wrong. 
: 47 1$09 1 § Volume and volume set locks may not be present if this volume 
; 480 1008 1 ! is serviced with an acp (ods-1, or /proc=fllbacp). The device 
; ret 1 : lock may not be present if the device is not cluster accessible. 
; aB3 1911 : | This routine is called in kernel mode. 
: 485 1918 1 i Input pereneters: 
: 089 1O18 1 i cg 
; cbs 131g : Implicit inputs: 
; 490 9 1/ VOLOCK_ID = nonzero if a volume lock is present 
: 491 1019 1! VOL_CTR = volume context (value block), all of it 
3; 49 1020 1! gg ETE referenced in this routine - 
; 49 1021 1! VC_NOTFIRST_MNT = clear if this is the first mounter 
3; 494 10 ¢ 7} VLSETLCK_IB = nonzero if a volume set lock is present 
3 «495 10235 1! VLSETLCK_CTX = volume set context (value block), all of it 
; 496 1024 1! epee iT icat ty referenced in this routine - 
: 497 1025 1! VC_NOTFIRST_MNT = clear if this is the first mounter 
; 498 1966 1! DEVLCK_LKIB = nonzero if device lock is present 
: 499 10 1! DEV_CTR = device lock value block (mount context) 
: 500 1028 1! DC_NOTFIRST_MNT - clear if this is the first mounter 
; 501 1029 1! STORED_CONTEXT = biftvector 
3 206 1030 1! XQP - set if this is an XQP 
H Hi 193) 3 MOUNT_OPTIONS = bitvector 
g 04 10 § | OPT_FOREIGN 
; 505 1033 1! OPT_WRITE 
; o08 1034 1! OPT GRO 
; 50 1035 1! OPT"SYSTEM 
; 508 196 1! OPT_NOQUOTA 
; 509 1037 1! OPT-PROTECTION 
3 a9 O36 - § GPT OWNER UI6 
3 11 1 1! PROTECTION = protection mask applied to the volume 
3 21¢ + : : OWNER_UIC = owner UIC of the volume 
: 514 1042 1 ! Output parameters: 
: Hf 1948 1 | Pur NONE 
: 31% 136? : Implicit outputs: 
: 23) 1947 1: VOLOCK_ID = zeroed if all locks successfully converted 
A 0 1 3 7! VLSETLOUK_ID = zeroed if all locks successfully converted 
3; 521 1 1! DEVLCK_LRID - zeroed if ait locks successfully converted 
; : § 1050 1! REAL_ROT CRVTSL SIRUCL ELS - lock ID of volume set lock 
3 1051 1! VOL_CTX CVC_NOTFIRST_MNT) - set to 1 


5 
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H 4 1 § 1% DEV_CTX COG NOTE IRST MNT] = set to 1 

3 5 1 1} DEV-CTX = following Fields are set as appropriate if first mounter 
; § 1054 1! DC_FOREIGN 

3 1055 1! DC_WRITE 

: 8 1 § 1! DC_GROUP 

; 9 1 1! DC_SYSTEM 

; it) 1058 1! DC_NOQUOTA 

: 1 1928 1! DC_OVR_PROT 

3 é 1060 1! DC-PROTECTION 

3 1061 1! DC_OVR_OWNU 

: 1 ¢ 1! DC-OWNER_UIC 

3 é 5 1 1! DC_NOINTERLOCK 

: 6 1064 1! VOLOCK_STS = lock status block for volume lock 

; 537 1065 1! VLSETLOK_STS = Lock status lock for volume set lock 

; > 1968 : DEVLCK_STS = lock status block for device lock 

; 226 1068 1 ! Routine value: 

> 541 1069 1! NONE 

3 ote 1070 1! 

; «54 1071 1 ! Side effects: 

; 544 1976 1! 

; 545 1075 1! ALL process locks are left in their mounted, system owned state 
; 546 1074 1! f successful. A full dismount must be done to undo after this. 
3 547 1075 1! Errors are signalled and the kernel mode handler will undo 
> 548 1076 1! already converted locks as necessary. 

3; 549 1077 1! 

3 350 1078 1 !-- 

3; 551 1079 1 

; 226 1080 BEGIN 

s 32 1081 

3; 554 Sse BUILTIN 

; 555 108 TESTBITCS; 

> 556 1084 

s 337 1085 EXTERNAL 

; 558 1086 MOUNT_OPTIONS : BITVECTOR, 

3 So 1087 L : REF BBLOCK, 

; 560 1088 STORED _CONTEXT : BITVECTOR, 

3; 561 1089 PROTO_VCB : BBLOCK, 

3 206 1090 PROTECTION, 

; 2 1091 OWNER_UIC; 

3; 564 1036 

3; 565 109 LOCAL 

; $8 1094 STATUS; 

; 56 1992 

; 568 1 39 ! Convert the volume lock, if present, to system owned and store the 
: 293 109 ' value block. If this is the first mounter, relevant context 

; 570 1998 ! in the value block (e.g., volume free space) has already been 

: 571 1099 ! set up in the value block being stored. 

3 i 1100 : 

: 7 1101 
3: 574 1108 IF .VOLOCK_ID NEQ 0 

; 575 11 THEN 

3 z i ¢ BEGIN 

; 8 1 $ VOL_CTX CVC_NOTFIRST_MNT) = 1; 

3 260 P 1108 STATUS = SENQW (LKMODE = LCKSK_CRMODE, 
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AX-11 Ol igen se V4.0-74 
MOUNT. SRCJCLUSTRMNT.B32; 


1 P 1198 LKSB = VOLOCK_STS, ‘ 

§ P 111 EFN = MOUNT _EFN : 
P1111 FLAGS = LCKSM_VALBLK + LCKSM_CONVERT + LCKSM_SYNCSTS F 

1 14g + LCKSM_COTSYS + LCKSM_NOQUOTA + LCKSM_NOQUEUE); ; 
1114 IF NOT .STATUS ; 

1115 THEN 3 

ss 1118 4 BEGIN 3 
9 1117 4 ERR_EXIT (.STATUS); 3 
90 1138 4 RETORN 3 
33 1120 3 
38 1121 4 IF NOT (STATUS = .VOLOCK_STS (02) ; 
94 11 § 3 THEN 3 
95 11 4 BEGIN 3 
238 1126 4 ERR_EXIT (.STATUS); 3 
97 1125 4 RETORN 3 
598 11 § 3 3 
599 11 3 
a : 
60 1130 ! If this is a volume set, convert the volume set lock to system owned : 
60 1131 ' and store the value block. 3 
$08 1138 §° 
606 1134 2 IF .VLSETLCK_ID NEQ 0 F 
607 1135 THEN 3 
ESS SP en : 
610 1138 VLSETLCK_CTX CVC_NOTFIRST_MNTJ = 1; ; 
612 P 1140 STATUS = SENQW (LKMODE = LCKSK_NLMODE, : 
61 P 1141 EFN = MOUNT . 3 
614 Pp 1148 LKSB = VLSETLCK_STS 3 
615 P 114 FLAGS = LCKSM CONVERT + LCKSM_CVTSYS + LCKSM.SYNCSTS $ 
oie 1163 + LCKSM_NOQUOTA + LCKSM_NOQUEUE + LCRSM_VALBLK); 3 
618 1146 IF NOT .STATUS ; 
ret 1108 4 THEN GIN ; 
621 1149 4 ERR EXIT (.STATUS); : 
6 ; 1150 4 RETORN 3 
sO . : 
625 1188 4 1F NOT (STATUS = .VLSETLCK_STS (02) : 
6 $ 1155 4 BEGIN : 
628 1136 4 ERR_EXIT (.STATUS); 3 
629 1157 4 RETORN F 
$34 1189 ‘ : 
O34 1160 ! This is the only case where we are storing a lock ID in the real structure ; 
63 1161 ' before all lock conversions are complete. The kernel mode handler knows 3 
tr 1196 } how to undo this if the device lock conversion fails. 3 
6 1164 3 : 
o3$ 1165 REAL_Rw® CRVTSL_STRUCLKID] = .VLSETLCK_ID; 3 
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END; 
If there is no device lock, we are done. 


IF .DEVLCK_LKID EQL 0 
THEN 


— (DEV_CTX COC_NOTFIRST_MNTJ) 
BEGIN 


This is the first mounter of this device, so set up appropriate context 
in the value block. 


! 
i 
1 
IF .MOUNT_OPTIONS COPT_FOREIGN] 
DEV_CTX CDC_FOREIGNI = 1; 
IF .MOUNT_OPTIONS COPT_WRITE) 
DEV_CTX CDC_WRITE) = 1; 
IF .MOUNT_OPTIONS COPT_GROUPJ 
DEV_CTX CDC_GROUP) = 1; 
IF _<MOUNT OPTIONS COPT_SYSTEM] 
DEV_CTX CDC_SYSTEM) = 1; 
IF _<MOUNT_OPTIONS COPT_NOQUOTAI 
DEV_CTX CDC_NOQUOTA) = 1; 
IF _ ,MOUNT_OPTIONS COPT_PROTECTION) 


BEGIN 
DEV_CTX [DC_OVR_PROT 


J 21; 
DEV-CTX COC“PROTECTION) = 
END; 


* PROTECTION; 
IF .MOUNT_OPTIONS COPT_OWNER_UIC) 
THEN 


BEGIN 
DEV_CTX EDC_OVR OUNUIC] = 1; 
DEV"CTX DCTOWNER_UIC] = .OWNER_UIC; 


IF NOT .STORED_CONTEXT CXQP) 
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7 
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7 
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7? 
7 
7 
7 
7 
7 
7 
7 
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HEN 
DEV_CTX CDC_NOINTERLOCK] = 1; 
END; 


' Always store value block. If this isn't the first mounter, this 
simply rewrites the value block recovered. This will clear any 
i yalue block not valid conditions as a result of node failures 


} in the cluster. 


STATUS = SENQW (LKMODE = IF NOT .MOUNT_OPTIONS COPT_NOSHARE] 
THEN LCK$K_CRPODE 
ELSE LCKSK-EXAODE, 
LKSB = wDEVECK STS, 
EFN = MOUNT _EFN 
FLAGS = Mek CONVERT + LCKSM_CVTSYS + LCKSM_VALBLK 
+ LCKSM_SYNCSTS + LCKSM_NOQUOTA); 


F NOT .STATUS 
EN 


“+ 
x= 


BEGIN 
ERR_EXIT (.STATUS); 
RETORN 
END; 
IF (STATUS = .DEVLCK_STS (0]) 
THEN 
DEVLCK_LKI 


D= 0; 
VOLOCK-ID = 0; 
VLSETLUK_ID = 0; 
END 


BEGIN 
ERR_EXIT (.STATUS); 
RETORN 
END; 
END; ! of routine store_context 


-EXTRN REAL_RVT, PROTO_VCB 


003¢ 000 
55 000000006 00 i: 800 MOVAB SYSS$ENQW, R 
sO HRHEP EEE BRIE? RRMAB. ROU GPs. 
14 AS " TSTL  VOLOCK_fp 
1 1 EQL $ 
eas Gi $B 0018 Blah, you_crx 
aa: a es 
7E ps 03 €LRL 5 (SP) 
7E 6F 8F 9A 000 MOVZBL #111, =(SP) 


03 -ENTRY STORE CONTEXT, Save R2,R3,R4,R5 
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6 
CLUSTRMNT 16- Sep-1984 AX-11 Bliss-32 V4.0-74 Page 20 
yO4=001 1 =tep- 3B 9}: 43 \} MOUNT. SRCICLUSTRMNT .B3 32 ° (Z 
5 DD 4 14 PUSHL : 
9 DD Es ie: PUSH § : 
: F E CALLS #11, SYSSENQW : 
D EB MOVL STATUS : 
1 : EE BLBC TATUS, 17$ ; 1243 
52 FBO ; F MOVZWL DEVLCK STS STATUS + 124 
OA 52 €£ re LBC STATUS; 17$ : 
FC =6A3) «(D4 O00F CLRL —dDEVLCK_LKID : 1252 
14 A3 D4 OOOFB 168 CLRL -VOLOCK™ID + 125 
30 AS’ D4 OOOFE CLRL ——- VLSETLOK_ID + 1254 
04 00101 RET + 1249 
52 DD 00102 17$ PUSHL STATUS + 1258 
000000006 00 01 FB 00104 CALLS #1, LIBSSTOP ; 
04 00108 RET + 1262 


; Routine Size: 268 bytes, Routine Base: SCODES + 016F 


7 AX=11 
8 MOUNT. 


ab eS 


6 
chUSTRANT 1B-Se0-1986 01:15: elise 


3 f : $3 ! GLOBAL ROUTINE GET_VOLUME_LOCK_NAME : NOVALUE = 

; 738 1265 1 !44 

; 739 1 96 . | 

$ ey : ? ! Functional description: 

: 74 1 $9 1 ! This routine generates and stores the resource name used for the 
3 ok : i ! } volume (allocation) lock in the VCB. 

3; 745 1 ue 1 ! Input per gaacerse 

: 746 1275 1! ONE 

: 747 1274 1! 

3; 748 1275 1! Implicit inputs: 

: 749 1276 1! 

; 750 1277 1! MOUNT OPTIONS COPT_NOSHARE] = set if not a shared mount 
» ta 1276 1! SCS$GB_NODENAME = Unique byte node identifier 

: P36 1279 1! DEVLCK_UCB = address of UCB (of device being mounted) 

: 75 1280 1! DEV_CTR COC_NOTFIRST_MNT) = set if not the first mounter 
3; 754 1281 1! DEV_CTX CDC_WRITE] - set _if volume mounted for write access 
s 755 1¢8¢ 1! PROTO vCB CUCBST VOLNANE } - volume Label 

3 £38 ise? : BUFFER CSCB$T_VOCOCKNAME] = Lock name for already mounted disk 
s 38 1285 1 ! Output parenetere’ 

; 759 1286 1! NONE 

; 760 1287 1! 

3; 761 1288 1! Implicit outputs: 

3; 762 1289 1! 

3; 763 1290 1! PROTO_VCB CVCB$T_VOLCKNAM] 

; 764 1291 1! PROTO_VCB CVCBSV_NOSHARE) - set if non-shared mount 

s 765 1636 1! 

; 766 1293 1 ! Routine value: 

3; 767 1294 1! NONE 

: 768 1295 1! 

: 769 1296 1 ! Side effects: 

; 770 1297 1! NONE 

3s 771 1298 1! 

: 772 9.44 1 lee 

; 773 1300 1 

: 774 1301 BEGIN 

s 775 1306 

: 776 13 EXTERNAL 

Oe ids 1304 tR : BBLOCK 

> 778 1305 MOUNT_OPTIONS : BITVECTOR, 

: 779 1306 PROTO VCB : BBLOCK 

3 reo Bt SCS$GB_NODENAME : ADDRESSING_MODE (GENERAL); 

: 78 1309 ! If this is a non-shared mount, the resource name is a unique 
3 oe 1311 node identifier plus a unique device identifier. 

3; «6785 1 \ 

; 786 131 IF .MOUNT_OPTIONS COPT_NOSHARE] 

3; 787 1314 THEN 

; 788 1315 BEGIN 

; 789 1316 CHSMOVE (8, SCS$GB_NODENAME, PROTO_VCB CVCB$T_VOLCKNAM)); 

; 790 1317 (PROTO VCB CVCB$T_VOLCKNAM) + 8) = -DEVLCK_UCB; 

3 43) ' 18 PROTO_VCB CVCB$V_ROSHARE] = 1; 
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1 END; 


; Routine Size: 62 bytes, Routine Base: SCODE$ + 0278 


F 6 
16-Sep-1984 01:13:17 YAX=11 BLigs-32_v4.0-74 p 
1e=8ep-1986 12:45:18  EMOUNT. SRCSELUSTRENT.039; 2 ell 


For shared mounts, the resource name is the volume Label. syeovee 

volume Labels may change after the volume is mounted, the first 

mounter will write back the volume Label used into the VOLOCKNAME 

field in the SCB, which is where non-first mounters get it from. 

age Pate + eg being made guarantee that this name is unique throughout 
e cluster. 


SE 
IF .DEV_CTX CDOC_NOTFIRST_MNT] AND ", eae COC_WRITEJ 
te NOT~.MOUNT_OPTIONS COPT_FOREIGN 


N 
CHSMOVE (12, BUFFER CSCBST_VOLOCKNAME], PROTO_VCB CVCBS$T_VOLCKNAM]) 
CHSMOVE (12, PROTO_VCB CVCBST_VOLNAME], PROTO_VCB CVCBST_VOLCKNAM)); 


-EXTRN BUFFER, SCS$GB_NODENAME 


007¢ 00000 .ENTRY GET_VOLUME LOCK NAME, Save R2,R3,R4,R5,R6 
56 00006 CF oF 9000¢ MOVAB PROTO VCB+T28, R6 
13 00006 CF 04 : 0000 BBC #4, MOUNT OPTIONS, 1$ 
66 000000006 00 08 28 90000 MOVC3 #8. SCSS$SGB_NODENAME, PROTO_VCB+128 
08 Ab 0000" CF BO 0015 MOVL DEVLCK UCB; PROTO_VCB+136 
D3 AG 20 88 90018 BI $82 #32, PROTO. VCB+8 
13 0000" CF £9 00020 1$ BLBC DEV_CTX, 2$ 
0000" CF 04 €1 00025 BBC #4, DEV CTX, 2$ 
07 90006 CF 05 0 0028 BBS #3. MOUNT OPTIONS+1, 2$ 
000G CF ¢ é 00 | Movs #12, BUFFER+34, PROTO_VCB+128 
66 94 Ab 0c 28 00038 2$ MOVC3 #12, PROTO_VCB+20, PROTO_VCB+128 33 
4 00030 RET 
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6 
CLUS TRMNT 1-56 -1984 01:13:17 AX-11 Bliss-32 V4.0-74 Page ; 
y04001 12-800} 384 eee MOUNT. SRCICLUSTRMNT .B3 3 . (33 
: 1g ! 3 ] GLOBAL ROUTINE GET_VOLUME_LOCK = 
BE dP dis 
: 81 1342 1 § Functional description: 
; «#81 1345 1! 
; 618 1344 1 ! This routine acquires the volume allocation lock in PW mode. 
3 $38 1345 1! This is necessary to allow the value block to be written. 
; 820 1 *$ 1! If this is a non=-shared mount, the system lock will be used 
; 821 1347 1 ! as a parent to cause the lock to be mastered locally without 
3 f ¢ : rt : ; any cluster message traffic from the lock manager. 
: B24 1350 1! It also performs a S$GETLKIW function on the volume allocation 
; 825 1351 1! Lock to determine the number of locks granted on that resource. 
; 826 1 26 1! This is used later to determine whether a rebuiid is necessary 
3 Ha : a7 : } on the volume after it is mounted. 
: : 2 : e? : This routine is called in kernel mode. 
; 831 1389 1 i Input pereneterss 
4 Bebe |e | Ate 
: te : 9 : Implicit inputs: 
; 836 1362 1! PROTO_VCB CVCBSV_NOSHARE) = set if nonshared mount 
; 837 1363 1! PROTO VCB LVCBST VOLCKNAM] = resource name string 
: Ht 1392 ! EXESGC_SYSID_LOCR = Lock ID of system lock 
; 840 1366 1 ! Output pereneterss 
ae | the. 
; bcs 1399 : Implicit outputs: 
> 845 1374 1 VOLOCK_STS = status of ENQ request on volume allocation lock 
; 846 1376 1! PROTO VCB CVCBSL_VOLLKIDJ = Lock id of volume allocation lock 
$ rth ne : VOLOCR_CNT = count of granted Locks on volume allocation lock 
; 849 1376 Routine value: 
: Be 1 rs 1! success if no errors or VALNOTVALID on volume lock request, 
: 25 1378 ! } else error status from failing service. 
; 26 $1 ; Side effects: 
; 2 } § \ Pw mode lock held on volume allocation lock. 
ee Be 
; BEGIN 
; : 1 EXTERNAL 
; 1389 0_vcB : BBLOCK 
; 1390 EXESGC_SYSID_LOCK : ADDRESSING_MODE (GENERAL), 
: 5 1391 MOUNT OPTIONS : BITVECTOR, : 
: 1 36 PHYS E : VECTOR, } becr ipyor for prypicet device 
; ' a DEVITE_INDEX : VECTOR; ! index into PHYS_NAME vector | 
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LOCAL 
LOCKNAME : VECTOR [70,BYTE) 
RESNAM_D : VECTOR £59 INITI 
PARENT_1D, 

STATUS; 
SfTSBLK : VECTOR C4, WORD]; 

MAP 
PHYS_NAME : BBLOCKVECTOR CDEVMAX,8]; 


' 
Define descriptor vector offsets. 


RAcRO ABR 2:0733:08: 

PARENT_ID = 0; 

iA eae as CVCBSV_NOSHARE) 
PARENT_ID = .EXESGL_SYSID_LOCK; 


(LOCKNAME (0])<0,32> = 'F11B'; 
(LOCKNAME (41)<0,16> = ‘$v’; 


DECR K FROM 2 TO 1 DO 


BEGIN 

! 

} The resource name of the volume lock is derived in two ways: 

i 1, Mounted Files-11, use the lock name in the VCB (as set up by 
; the GET VOLUME LOCK. NAME routine). Resource name isof fixed 
} length T18 bytés, volume Label with trailing blanks). 

i 2, Mounted foreign, use the full device name, e.g. 

: F11BSv_allocdevnam. Resouce name is of variable Length. 


IF NOT .MOUNT_OPTIONS CCPT_FOREIGN] 


THEN 
eu se CtSMOVE (12, PROTO_VCB CVCBST_VOLCKNAM], LOCKNAME [6]) 
BEGIN 
CHSMOVE ( .PHYS_NAME -PEVICE INDEX LEN] 
PHYS NAME -DEVICE- INDEX. ADDRI, i 
NAME (6) ): ! 


LOCK 
RESNAM_D 63 = .PHYS_NAME C.DEVICE_INDEX,LENJ+6; 


STATUS = SENQW (LKMODE = LCKSK_PUMODE, 


= FN, 
ACMODE = PSC$C_KERNEL, 
LKSB = VOLOCK 


mm 
2D 


AL (LONG (18), LONG (LOCKNAME)), 


Length of device name 

Addres of device string 

Resource name buffer 

Calculate length of resource name 


TS 
FLAGS = LCKSM"VALOLK + LCKSM_SYSTEM + LCKSM_NOQUOTA 


— ——— 


6 
vou=001" HE$SOc19EE QU:TECTE  YAMGIY SET NiOZ8, race 


7; 9 $ P 14 3 + LCKSM_SYNCSTS, ‘ 
3; 9 P 14 PARID = .PARENT_ID, ‘ 
: 4 : 1 2 RESNAM = RESNAM_D); : 
; 950 14 § IF NOT .STATUS 3 
; 931 14 THEN 5 
3; 9 § 14 8 RETURN .STATUS; : 
; 9 14 ; 
; § 1460 STATUS = .VOLOCK_STS (0); . 
; 935 146) : 
3; 9 1406 IF NOT .STATUS ; 
; 9 146 AND .STATUS<0,16> NEQ SS$_VALNOTVALID ; 
: 9 1464 THEN : 
; 939 1465 RETURN .STATUS; ; 
; 940 1698 : 
: 3) 169f PROTO_VCB CVCBSL_VOLLKIDJ = .VOLOCK_ID; ‘ 
3 ot 1098 LCKCNT_ITM (4,0,32,0] = VOLOCK_COUNT; : 
3 945 P 1471 STATUS = SGETLKIW (EFN = MOUNT_EFN 

> 946 P 1478 LKIDADR = YOLOCK_ID, 

> 947 P 147 ITMLST = LCKCNT_ITM, 

: 948 1474 10SB = STSBLK); 

3; 949 1475 

; 950 1676 IF NOT .STATUS 

; 951 147 THEN 

$ 326 1478 RETURN .STATUS; 

:; 95 1479 

; 954 1480 ! 

; 955 1481 ! The device lock value block was read by IOCSSEARCH or routine GET_DEVICE_CONTEXT. 

; 956 O86 ! We just read the the volume lock value block. The following matrix represents 

; et Me $4 the possible states of these two value blocks: 

: 959 1485 : DEV_CTX CDC_NOTFIRST_MNTJ VOL_CTX CVC_NOTFIRST_MNTJ 

; 960 1008 ! (a) 0 

: 961 148 ' (bd) 1 

3 368 1488 ! (¢) 1 0 

; 96 1489 ' (d) 1 1 

: 964 1490 ! 

; oon 103) Cases (a) and (d) are valid (and therefore not interesting). 

3; 967 1498 ! Case (b) shows that we are the first mounter on this device, yet the 

; 968 1494 ‘ volume lock already exists. This implies that another volume 

3 36? 1495 : with the same label is already mounted. This error condition 

; ant 1698 will be detected later on. | 

3 38 1608 ' Case (c) If the device lock has a count of 1, this shows that 

; 97 14 ! when we first read the device context, there was another | 

: 974 1500 : mounter. However, by the time we read the volume context, 

3; 975 1501 ! this mounter has peppeered Since MOUNTs and DISMOUNTs 

3 378 1206 ! are interlocked with the device lock, the mounter couldn't 

s OF 150 : have properly dismounted the volume. The only possibility is 

: 978 1208 : that the node that originally mounted this vol had crashed 

; 979 1505 ' within this window. In this case, clear the device context 

; 980 1206 ! block and make us the first mounter. Release the volume lock, | 

; 981 1382 : derive the volume lock name and try again. 

; 982 1 ' | 
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983 1 9 ' Otherwise, this scenario would lead to a ‘'VOLALRMNT”’ error 

3 ¢ 1 : } as in case (b) above. 

4 ; 13 Note that we're only doing this for shared mounts. 

+3 1514 

989 1515 4 IF ( .DEV_CTX CDOC_NOTFIRST_MNT) ) 

990 1 18 4 AND ( NOT .VOL_CTX”CVC_NOTFIRST_MNT] ) 

991 151 4 AND ( NOT .MOUNT_OPTIONS COPT_NOSHARE) ) 

336 1 18 3 THEN 

99 1519 4 BEGIN 

994 1520 4 LOCAL 

995 1521 4 DEVLCK_COUNT, ! Device lock count 

eae 1 § 4 DEVLCK_ITM : BBLOCK (1244) INITIAL 

99 15 4 (WORD (4) 

998 13 4 4 WORD (LKI$_LCKCOUNT), 

So? 1525 4 LONG (DEVLOK_COUNT), 

1000 15 § 4 LONG (0) 

1001 1527 4 LONG (0)5, 

1008 12 3 2 DEVLCK_IOSB : VECTOR C4,WORD); 
1004 P 1530 4 STATUS = SGETLKIW ( EFN = MOUNT_EFN ! Get number of device locks 
1005 P1531 4 LKIDADR = DEVLCR_LKID, 

1008 P 15 § 4 ITMLST = DCVLCK_ITM 

100 1533 4 10SB. = =~ DEVLCK=10S8 ); 

1008 1338 4 

1009 1535 IF ( .STATUS ) ! If SGETLKI succeeded and 
1010 1238 AND ( .DEVLCK_10SB (0) ) ! number of device locks eq 1 
1011 15 AND ( .DEVLCK_COUNT EQL 1 ) ! then make us the first mounter 
Org 15 : 4 THEN 
101 15 BEGIN 
1014 1540 DEV_CTX CDC_FLAGS] = 0; ! Clear device lock context 
1015 1541 DEV“CTX CDC“PROTECTION) = 0; 
Igte 1206 DEV_CTX CDC_OWNER_ UIC) = 0; 
101 13 $DEG ( LKID™= .VOCOCK_ID ); ' Release volume lock 

1018 1544 GET_VOLUME_LOCK_NAME 7); ! Get the volume lock name (this 
191? 1545 END ! time, as the first mounter) 
1020 1366 4 ELSE 

1021 1547 & EXITLOOP; 

10 ; 1548 4 

10 1549 ELSE 

4 : 1339 EXITLOOP; ! Otherwise, get out of the loop 
10 $ 1388 END; ! End of DECR K Loop 

1 155 

1028 1554 STATUS = .STSBLK (0) 

1029 1323 

1030 1556 END; ! of routine get_volume_lock 

INFO#250 L1:1537 
Referenced LOCAL symbol DEVLCK_COUNT is probably not initialized 
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09 0000G CF 
32. OA 0000G CF 
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7 AX=-11 BL 
8 MOUNT.SR 


21 
:1 
EX ESGL sysip LOCK 
PHYS_NA DEVICE &I NDEX 
SYSSteTiciw S$BEQ 
SCODES ,NOWRT,2 


GET. YOLUME LOCK, Save R2,R3,R4,R5,R6,R7,R8,-; 


eyeseetcciy R11 
voLOck CK +f 0 
-116(SP), 
18, SESHAN. D 
LOCKNAME, RESNAM_D+4 
PARENT 
PROTO_VCB+83, 1$ 
EXESGL svsi0. LOCK, PARENT_ID 
20134, “LOCKNAME 
#30244, LOCKNAME +4 


#3. MOUNT_OPTIONS+1, 3$ 
He, PROTO_VCB+128, LOCKNAME+6 


DEVICE xiNex 
HYS_N Moe kee” 


a, 
PHYS _NAMECR6] 
a(SP3+, (RO), LOCKNAME+6 
Cavs i ECR6 

“USP, RESNAM_D 
=(3P) 
PARENT_ID 
RESNAM_D 


# 
VOLOCK_STS 
#4 


#26 
#11, SYSSENQW 
RO, STATUS 
STATUS, 6$ 
VOLOCK.STS, STATUS 
STATUS, 
STATUS. #2544 
VOLOCK_ID, PROTO_V 8 124 
VOLOCK COUNT, (eRen _1TM+4 
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4 
18-5e =1984 01:13:17 AX-11 Bliss-32 V4.0-74 Page 28 
1 ~$007 138% ON ee EROUNT. SRCTCLUSTRENT.B3 32 . (3 
8 7 F B4 CALLS #7, SYSSGETLKIW ; : 
Q D B7 MOVL RO. STATUS : ; 
3 E BA 6$: BLBC = STATUS, + 1476 ; 
FC AA E BD BLBC DEV_CTX, 8$ + 1515 ; 
iF 4 ME C1 BLBS  VOLCTX, 8$ : 1316 : 
49 90006 CF 04 C5 BBS #4, MOUNT_OPTIONS, 8$ : 151 ; 
OC AE 0000' CF 10 ¢ MOVC3 #16, P.AAO, DEVLCK_ITM + 1527 ’ 
10 AE E 9E 000D MOV DEVLCK_COUNT, DEVLCK_ITM+4 + 1519 : 
—E 7C 000d CLRQ  =(SP) + 1533 ; 
7E ps 0 D CLRL = = (SP) : ; 
10 AE 9F OOODA PUSHAB DEVLCK_10SB : : 
1¢ AE i 900 USHAB DEVLCK-ITM : : 
E8 AA 9F OO0E SHAB DEVLCKLKID : ; 
1A DD O00E PUSHL #26 : : 
68 97 fe OOE CALLS #7, SYSSGETLKIW $ 
57 Q DO 000E MOVL RO. STATUS : 
6 57 €9 OO0EB BLBC STATUS, 8$ + 1535 
2 04 AE €9 000E BLBC ~ DEVLCK.10SB, 8$ + 1536 
1 6— D1 OOF CMPL  DEVLCKCOUNT, #1 + 1537 
1D 12 OO0F BNEQ =: 8$ ; 
EC AA 7C 000F7 CLRQ  DEV_CTX + 1540 
7E 7¢ OOOFA CLRQ  =(SP) + 1543 
7E D4 OOOFC CLRL = =(SP) : 
6A DD OOOFE PUSHL  VOLOCK_ID ; 
000000006 00 04 FB 00109 CALLS #4, SYSSDEQ ; 
FEB6 CF 0 re 0010 CALLS #0, GET_VOLUME_LOCK_NAME + 1544 
02 58 F5 0010C SOBGTR K, 7$ + 1421 
03 11 0010F BRB a$ : 
FF27 31 00111 7$: BRW 2$ ; 
57 1C AE C 00114 8$: MOVZWL STSBLK, STATUS + 1554 
50 57 DO 00118 9S: MOV STATUS. RO : 
04 00118 RET : 1556 


; Routine Size: 284 bytes, Routine Base: $CODE$ + 0289 
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GLOBAL ROUTINE GET_VOLSET_LOCK : NOVALUE = 


144 
y 


Functional description: 


This routine generates the resource name used to describe the 
volume set name. This is the same mongenees used by the normal 
volume allocation locks. Its primary function is to gverentee 

that volume and volume set names are unique throughout the cluster. 


This routine is called in kernel mode. 
Input parameters: 
Pur AONE 


Implicit inputs: 


HOME BLOCK CHM2$T_STRUCNAME) = volume set structure name 
MOUNT _OPTIONS COPT_NOSHARE) = set if nonshared mount 
SCS$GB_NODENAME = 8 byte unique node identifier 

EXESGL SYSID_LOCK = lock ID of system (node) lock 
REAL_RVT = address of RVT structure 

STORED_CONTEXT CXQP] = set for xap serviced volumes 


Output parenenarse 
NONE 


Implicit outputs: 


REAL_RVT CRVTST_VLSLCKNAM] = unique volume set identifier string 
VOLSETLCK_STS -"status of volume set lock ENQW request 
VOLSETLCK_ID = lock ID of volume set lock 
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be8 VOLSETLCK_CTX = value block of volume set lock 

068 Routine value: 

069 NONE 

070 

a Side effects: 

O78 Error conditions are signalled. 

Bre Volume set lock is held in PW mode by this process. 
7 = 

orf BEGIN 

079 6 

080 6 EXTERNAL 

081 6 HOME BLOCK BBLOCK 

O8¢ 60 MOUNT_OPTIONS : BITVECTOR, 

0 608 L_RvT : REF BBLOCK, 

084 609 STORED_CONTEXT : BITVECTOR 

085 610 SCS$GB_NODENAME : ADDRESSING_MODE (GENERAL), 
bas oi] EXESGL_SYSID_LOCK ADDRESSING_MODE (GENERAL); 
088 ae LOCAL 

089 614 LOCKNAME : VECTOR (C20, BYTE), 


CHSMOVE (12, HOME_BLOCK CHM2$T_STRUCNAME], REAL_RVT CRVT$T_VLSLCKNAM)); 
IF NOT .STORED_CONTEXT CxQP) 
RETURN; 


(LOCKNAME (0))<0,32> 
(LOCKNAME (4))<0,16> 


CHSMOVE (12, REAL_RVT CRVTST_VLSLCKNAM], LOCKNAME (6)); 
Take out a lock on the volume set name. 


ER, 
v0. 
1090 1 RESNAM_D : VECTOR C2] INITIAL (LONG (18), LON KNAME)), 
O31 PARENT ID, C2] INITIAL (LONG (18), LONG (LOC E 
$98 1 . 
094 1 
095 PARENT_ID = 0; 
§99 IF .MOUNT_OPTIONS COPT_NOSHARE) 
098 THEN 
099 BEG! 
CHSMOVE (8, SCS$GB_NODENAME, REALRVI CRVTST_VLSLCKNAM)) ; 
(REAL_RVT CRVTST_VCSLCKNAM] + 8) = .REAL_RVT? 
PARENT_ID = .EXESGL_SYSID_LOCK; 
ELSE 
3 
3 
3 
3 
3 


*F11B°; 
'$v'; 


STATUS = SENQW (LKMODE = LCKSK PWMODE, 
EFN = MOUNT 


FN, 
ACMODE = PSCSC_KERNEL, 
RESNAM = RESNAR_D 
PARID = .PARENT~1D 
LKSB = VLSETLCK7STS, 
FLAGS = LCKS$M_SYSTEM + LCKSM_NOQUOTA + LCKSM_SYNCSTS 
+ LCKSM_VALBLK); 


vuvVvUUvUUU 
ee ee ee ee ee ee ee ee a a ee ed ed dd 


SOS SS SS SSS SSS SESS FFF SSS FOSS SSS SS SOS SOS DSPO-OO.S-S- 


IF NOT .STATUS 
THEN 


BEGIN 

ERR EXIT (.STATUS); 
RETORN 

END; 


IF NOT (STATUS = .VL 
AND .VLSETLC 


PAA BEBE PEEP EW 
MEAN 0 ODNAUES WN =O OONAUES WN 2 O OONOULSWN (OO OONOUES WN“ OWOONOU 


S ) 
K_ S$$_VALNOTVALID 


BEGIN 
ERR EXIT (.STATUS); 
RETORN 
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END; 
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N 6 
vOu-001" 1er$ep-1986 12:45:18 EROUNT. SRCSELUSTAMAT 69:2 ee 
| 


Pe ee ee ee te on oe oenente 


wal 
CLUSTRMNT 16-8 sep-1984 AX-11 BLiss-32_V4.0-74 ee 8 ER! 
vo4=001 Sep 71984 9}: 13:1f MOUNT. SRCICLUSTRMNT .B3 :2 ” 3} v04 

.EXTRN HOME_BLOCK ; 

O1FC 9009 .ENTRY GET_VOLSET_LOCK, Save R2,R3,R4,R5,R6,R7,R8 ; 1558 ; 

58 0000" CF H 00¢ MOVA VESETL ck “STS, R& : ; 

i§ C 8 SUBL He : ; 

1 BD OA PUSHL + 1603 13 

04 AE 08 AE E O0¢ MOVAB  OCKNAME RESNAM_D+4 : ; 

56 00006 cr BO oor mbvE REAL RO 16 ; 1635 ; 

16 00006 CF mv 3 Oia BBC #4, Lat Re r10 NS, : 16 : : 

18 Ab 00000096 09 08 H. OO1F MOVES #8, $$GB ONODENAME - +54 (R6) : 1625 ; 

af 000000006 09 d 0098 MOVL XESGL_SYSID_LOCK, PARENT_ID : 1687 F 

18 Ab 00006 CF Oc 28 00034 1$: MOVC3 He, HOME pokocK e460, 24(R6) : 1634 ; 

4A 00006 CF E1 00038 2$: BBC STOR CONTEXT, 4$ + 1633 ; 

08 AE 42313146 8F DO 00041 MOVL Ath 52013t, LOCKNAME t 1637 ; 

OC AE 7624 8F BO 00049 MOVW #3244 CKNAME +4 + 1638 3 

OE AE 18 AG ¢ ¢8 0004F MOVC3 #12, sk ches LOCKNAME +6 + 1640 ; 

faa rt se Bing, S| 

7E D4 00059 CLRL = = (SP) : F 

5? DD 00058 PUSHL PARENT_ID : ; 

18 AE 9F 0005D PUSHAB RESNAM= D : : 

aS ay : : 

04 DD 00064 PUSHL #4 : F 

1A DD 00066 PUSHL #26 3 . 

000000006 00 08 FB 00068 CALLS #11, SYSSENQW : : 

ae 35 OS 80995 BeBe er reaTys : 1654 : 

52 26 ites MOVZWL St STS, STATUS + 1661 ; 

10 52 E8 60078 BLBS TUS : F 

O9FO «BF 68 8} 90078 CMP VESETLEK_STS, #2544 ; 1662 ; 

52 DD 00082 3$: PUSHL STATUS + 1665 : 

000000006 00 01 FB 00084 CALLS #1, LIBS$STOP : ; 

04 00088 4$: RET > 1669 : 

; Routine Size: 140 bytes, Routine Base: S$CODE$ + 0305 : 

: 1145 1670 1 F 

} 


CLUSTRMNT 1984 01:13:17 AX-11 Bliss-32 V4.0-74 
vo4-001 71382 ee Bey MOUNT. SRCICLUSTRMNT .B3 sé 
ROUTINE KERN_LCK_CLNUP : NOVALUE = 

‘es 

Functional description: 

This routine is called in kernel mode to back off partial changes 

to the locks that mount manipulates. 

It backs off locks already converted when an error occurs. 


Input par gneverss 


Implicit inputs: 


VOLOCK_ID = nonzero if the volume lock is to be dequeued. 
VLSETLOK_ID = nonzero if the volume set lock is to be dequeued. 


Output perenenares 
NONE 


Implicit outputs: 
; NONE 4 


HPAEXAEAAAAAAAAAAAAA AAAS AAAAO 


Routine value: 
NONE 


Side effects: 


Volume and volume set locks acquired by the MOUNT system service 
so far are dequeued (they did not exist previously). 


BEGIN 

M4 VOT? NEQ 0 

SDEQ (LKID = .VOLCCK_ID); 
v -VLSETLCK_ID NEQ 0 

$DEQ (LKID = .VLSETLCK_ID); 
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END; 


0004 00000 KERN_LCK_CLNUP: 
WORD 


" Save R2 
$2 000000006 00 95 00 2 MOVAB SYS$DEQ, R2 
5 0000' CF D MOVL  VOLOCK_fp, RO 
9 1 BEQL «= ‘1$ 
—E 7¢ 0001 CLRO = = (SP) 
7E 04 0001 CLRL = = (SP) 


CLUSTRMNT 
vO4=001 


; Routine Size: 


42 bytes, 


56 


62 


Routine Base: 
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4 AX-11 Bliss-32 V4.0-74 
1382 9}: With MOUNT. SRCICL oe rkMiy 203552 

PUSHL RO 

CALLS #4, SYS$DEQ 

MOVL yESETLCK ID, RO 

BEQL 

CLRQ = =(SP) 

CLRL = = (SP) 

PUSHL RO 

CALLS #4, SYS$DEQ 

RET 


FE pe ences 6a ‘ " 


? 
CLUSTRMNT 1h-5op-1984 01:13:17 VAKe11 BLiss-32 v6.0-7% Page 34 ee 
04-001 beet e tt ri ee ST on 9 3) 
1193 GLOBAL ROUTINE LOCK_CLEANUP : NOVALUE = 


lee 
; 


Functional description: 
This routine is called from the MOUNT_HANDLER in MOUDK2 when 


errors occur. If any locks have been acquired, it calls a 
kernel mode routine to dequeue or convert them as appropriate. 


SQN 


WAAWANAIWINWInonononononononomnnn 


SOWDNAVSWN $90 OE NOUS WN OOONIO 


Implicit inputs: 


OOCoocoVoooovono 


oO 
NOARWWIODR NR AR OOOO ROR 


VOLOCK_ID = nonzero if volume lock acquired 
VLSETLOK_ID = nonzero if volume set lock acquired 


BEGIN 


IF .VOLOCK_ID NEQ 0 
OR .VLSETLCK_ID NEQ 0 


KERNEL_CALL (KERN_LCK_CLNUP); 


ee ee eee 
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END; 


~-EXTRN SYSSCMKRNL 


0000 00000 ENTRY LOCK _CLEANUP, Save nothing : 1716 
0000" CF 05 00002 TSTL VOLOCK_ID ; 1735 
06 12 00006 BNEQ 1$ 3 
0000" CF bd5 00008 TSTL VLSETLCK_ID 3 1736 
OE 13 0000C BEQL : 
7E D4 OOOOE 1$ CLRL -(SP) 3 1738 
5E 0D 0001 PUSHL SP 3 
C1 AF 9F 0001 PIJSHAB 7 LCK_CLNUP : 
000000006 9F 03 FB 0001 CALLS #3, GA#SYSSCMKRNL 3 
04 0001C 28: RET 3 1740 
; Routine Size: 29 bytes, Routine Base: S$CODES + 0488 
; 1218 1741 
3 1219 Hk ND 
: 1220 1745 0 ELUDOM 
-EXTRN LIBSSTOP 
: PSECT SUMMARY 
: Name Bytes Attributes 


F 7 
=$ep-1984 01:13: AX-11 Bliss-32 V4.0-74 Page 35 

001 12-88-1383 Oba lf MOUNT .PRCTELUSTHMNY 84952 ° 33 
; SOWNS NOVEL WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SGLOBALS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 11 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 1 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: coeceee= Symbols oooeeee- Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 43 0 1000 00:01.9 
3; Information: 1 
3; Warnings: 
3; Errors: 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CLUSTRMNT/OBJ=OBJ$:CLUSTRMNT MSRC$:CLUSTRMNT/UPDATE=(ENH$: CLUSTRMNT) 


3; Size: 1192 code + 228 data bytes 
3; Run Time: 832. 

; Elapsed Time: 01:03.6 

3 Lines/CPU Min: 3241 

3; Lexemes/CPU-Min: 26321 

; penecy Used: 180 pages 

: a 


; Compilation Complete 
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VAX/VMS V4.0 


L EQUIPMENT 
ENTIAL .AND 


24 : ’ CORPORATION 


DI 
CO PROPRIETARY 


ITA 
FID 


